object frmMain: TfrmMain
  Left = 216
  Top = 225
  Width = 516
  Height = 303
  Caption = 'Login Demo'
  Color = clWhite
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusLine: TStatusBar
    Left = 0
    Top = 237
    Width = 508
    Height = 20
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Text = 'No User'
        Width = 150
      end
      item
        Width = 150
      end
      item
        Text = 'Not Connected'
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
  end
  object grdAuditTrail: TDBGrid
    Left = 0
    Top = 0
    Width = 508
    Height = 237
    Align = alClient
    DataSource = dsAuditTrail
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object mnuMain: TMainMenu
    Left = 92
    object ApplicationMenu: TMenuItem
      Caption = '&Application'
      ShortCut = 0
      object ApplicationLoginItem: TMenuItem
        Caption = '&Login'
        ShortCut = 0
        OnClick = ApplicationLoginItemClick
      end
      object ApplicationLogoutItem: TMenuItem
        Caption = 'Log&out'
        Enabled = False
        ShortCut = 0
        OnClick = ApplicationLogoutItemClick
      end
      object ApplicationChangePasswordItem: TMenuItem
        Caption = '&Change Password...'
        Enabled = False
        ShortCut = 0
        OnClick = ApplicationChangePasswordItemClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ApplicationExitItem: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = ExitMenuClick
      end
    end
    object ExitMenu: TMenuItem
      Caption = 'E&xit'
      ShortCut = 0
      OnClick = ExitMenuClick
    end
  end
  object dbAppMain: TDatabase
    AliasName = 'TEST1'
    DatabaseName = 'AppMainDB'
    Params.Strings = (
      'DATABASE NAME=Test2'
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 131
  end
  object tblAuditTrail: TTable
    DatabaseName = 'AppMainDB'
    ReadOnly = True
    TableName = 'dbo.AuditTrail'
    Left = 169
  end
  object dsAuditTrail: TDataSource
    DataSet = tblAuditTrail
    Left = 208
  end
end